home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / netmail / blueq160.zip / SR140.ZIP / PACKER.BAT next >
DOS Batch File  |  1996-01-08  |  939b  |  58 lines
  1. @echo off
  2. rem packer compress.exe reply_fname internals
  3.  
  4. if (%1)==(PKZIP) goto PK
  5. if (%1)==(PKPAK) goto PKPAK
  6. if (%1)==(LHA) goto LHA
  7. if (%1)==(ARJ) goto ARJ
  8.  
  9. :PK
  10. if (%5)==() goto PACK
  11. md BQWRK >nul
  12. copy %5 BQWRK >nul
  13. del %5 >nul
  14. blueqwk %4 rep-bw .\ .\BQWRK\
  15. cls
  16. %1 %2 %3 %4 BQWRK\*.* %6 %7 %8 %9
  17. goto CLEANUP
  18.  
  19. :PKPAK
  20. if (%4)==() goto PACK
  21. md BQWRK >nul
  22. copy %4 BQWRK >nul
  23. del %4 >nul
  24. blueqwk %3 rep-bw .\ .\BQWRK\
  25. cls
  26. %1 %2 %3 BQWRK\*.* %5 %6 %7 %8 %9
  27. goto CLEANUP
  28.  
  29. :ARJ
  30. if (%7)==() goto PACK
  31. md BQWRK >nul
  32. copy %7 BQWRK >nul
  33. del %7 >nul
  34. blueqwk %6 rep-bw .\ .\BQWRK\
  35. cls
  36. %1 %2 %3 %4 %5 %6 BQWRK\*.* %8 %9
  37. goto CLEANUP
  38.  
  39. :LHA
  40. if (%5)==() goto PACK
  41. md BQWRK >nul
  42. copy %5 BQWRK >nul
  43. del %5 >nul
  44. blueqwk %4 rep-bw .\ .\BQWRK\
  45. cls
  46. %1 %2 %3 %4 BQWRK\*.* %6 %7 %8 %9
  47. goto CLEANUP
  48.  
  49. :CLEANUP
  50. for %%a in (BQWRK\*.*) do del %%a
  51. rd BQWRK >nul
  52. goto END
  53.  
  54. :PACK
  55. %1 %2 %3 %4 %5 %6 %7 %8 %9
  56.  
  57. :END
  58.